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EDTSTIDELETE = handle DEL key 


su "EDT JRE ETE = handle DEL key’ 
EDTS ' Handle i PFS Re 
iDEN! = *v04-000' le: YT IDELETE. BLI Edit: J8S1005 
= 
BEGIN 
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ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ie ALL RIGHTS RESERVED. 


ie THIS ie kcthe bh eaitaee UNDER Nes ty MAY BE USED AND copie 


!® ONLY IN ACCORDANCE WITH THE $ 

'@ INCLUSION OF THE ABOVE git NOTICE. THis” SOF TWARE y OTHER 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAI LABLE TO ANY 
'@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
oe Cameokat ihe. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


i® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
!® SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
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! FACILITY: EDT -- The DEC Standard Editor 
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' 
! 
ABSTRACT: 
Handle the DEL key. 
: 8 ENVIRONMENT: Runs at any access mode - AST reentrant 
40 9 AUTHOR: Bob Kushlis, CREATION DATE: June 9, 1979 
4@ 4 MODIFIED BY: 
44 4 1! 1-001 - Original. DJS 18-FEB-1981. This module was created by 
45 5 : extracti ng routine EDTSS$STI_DELK from module TINPUT. 
4 § ! 1- § - Regularize headers. JBS”~11-Mar-198 
4 ! 1- - Correct handling of deleting of 1 gengret. gdorectors. JBS 27-May-1982 
4 3 ! 1- - Watch out for insert mode. age! 
34 $0 1-005 - Correct a minor typo. JBS 2 Bre 1985 
1 1 
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11 tine 51s Bl amped We=$Eb-198e 12:34:50 DISKSUMEMASTERSCEDT SRCSTIDELETE.BLIL1o* (25 


1 RSBTTL "Declarations’ 
; TABLE OF CONTENTS: 


REQUIRE "EDTSRC: TRAROUNAM' ; 


FORWARD ROUT INE 
EDTSSTI_DELK : NOVALUE; 


INCLUDE FILES: 
REQUIRE "EDTSRC:EDTREQ'; 


i 
MACROS: 
NONE 
EQUATED SYMBOLS: 
BIND 

DEL_ONE_CHAR_52 = UPLIT (BYTE (ASC_K_BS, ASC_K_ESC, %C'K')); 


LITERAL 
DEL_ONE_CHAR_52_LEN = 3; 


BIND 
DEL_ONE_CHAR_100 = UPLIT (BYTE (ASC_K_BS, ASC_K_ESC, %C'C', %C°K")); 


LITERAL 
DEL_ONE_CHAR_100_LEN = 4; 
OWN STORAGE: 
NONE 
i EXTERNAL REFERENCES: 
; In the routine 


EDTS LETE DISTIDELETE = handle DEL ke 
YOu 000" DISSTIDELE = "hondte BEL tay 
ZSBTTL "EDTSSTI_DELK = handle DEL key’ 


C.08K ROUTINE EDTSSTI_DELK ( 
) : NOVALUE = 


wn 
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FUNCTIONAL DESCRIPTION: 

out backspace space backspace. 
we do it twice. 

FORMAL PARAMETERS: 


IMPLICIT INPUTS: 


EDTS$G_ ih ECHOPOS 
EDTS$G_TI_TYP 


IMPLICIT outputs: 
EDT$$G_TIN_ECHOPOS 
ROUTINE VALUE: 

NONE 

SIDE EFFECTS: 
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elie ROUT INE 
TSSOUT_FMTBUF, 
EDTSSFMT_LIT; 


SANS 


EXT 
TEDTSSG. TIN ECHOPOS, 
EDTS$$G_TI_TYP; 


If (.C LSS &C° *) 
THEN 
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! Handle DEL k 
i Character being deleted 


Fina 


Delete the last character on the echo Line. This is done by writing 


If the character was a control chraracter, 


C The character which is being deleted. 


' Position on the echo Line 
! Terminal type 


BEGIN 
EDTSSG_TIN_ECHOPOS = .EDTSS$G_TIN_ECHOPOS - 1; 
CASE FoTeG tT FROM TERM_VTS2 TO TERM_VT100 OF 


ESTS$ fay “LIT (DEL_ONE_CHAR_52, DEL_ONE_CHAR_52_LEN); 


OSRCSTIDELETE.BLI: 


o 
4 = handle DEL k 


= handle DEL erect ryee ; 


H 

16-Sep- VAX-11 
y 14- 37) 382 9}: 32 4 DIsk $V nen TER: che she TIDELETE.BLI;1 (3 
00] : 
FAT LIT (DEL_ONE_CHAR_100, DEL_ONE_CHAR_100_LEN); 


am oe 2 
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EDTSTIDELETE EDT$TI 
704-000 EDTSST 
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CTERM_ VT52) 


CINRANGE . OUTRANGE) : 
EDTSSFMT. LIT (DEL_ONE_CHAR_52, DEL_ONE_CHAR_52_LEN); 
CTERM_VT100) : 


] 
p | 
) | 
4 IN 
END; 
TES; 
END; 
EDTS$G_TIN_ECHOPOS = .EDTS$G_TIN_ECHOPOS = 1; 
CASE ggfeTSS6_T1_T YP FROM TERM_VTS2 TO TERM_VT100 OF 
EBTSSFMT LIT (DEL_ONE_CHAR_100, DEL_ONE_CHAR_100_LEN); 
CINRANGE, OUTRANGE) : 

BEGIN | 
| 
| 
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0 
END; 
TES; 


EDTSSOUT_FMTBUF (); 
END; 


SNN NNN NINN SIO A OOOO 
PER ES SSNS SRN SS SASS SSS 


SGOooooooooooo 


! of routine EDTSS$TI_DELK 


-TITLE EDTSTIDELETE EDTSTIDELETE - handle DEL key 
-IDENT \V04-000\ 


-PSECT _EDTSCODE,NOWRT, SHR, PIC,2 


48 1B 08 20088 © P.AAA: -BYTE 8, 27, 75 ; 
48 5B 1B 08 00004 P.AAB: BYTE 8, 27, 91, 75 : 
DEL_ONE_CHAR “10 P.AAA 
DEL~ ONE _ ~CHARS 100= P.AAB 
EDTSSOUT_FMTBUF 
Edt EDTSSFMT-LIT, EDT$$G_TIN_ECHOPOS 
-EXTRN EDTS$G_TT_TYP 
003¢ 00 .ENTRY EDTSSTI_DELK, Save R2,R3,R4,R5 : 0670 
5 00 9000 G 99 E MOVAB €EDT$$G_TIN ECHOPOS, R5 : 
4 000006 9E MOVAB EDTSSFAT_LIT, é 
x AF 9E 00010 MOVAB DEL _ONE_CHAR 52, R3 ; 
2 000000806 00 9 14 MOV EDIS$G TI_IVP. R ; | 
* 4% 98 ooore Ss Baden 
4 DECL § EDT$$G_TIN_ECHOPOS : 0717 
01 4 é CF CASEL EDTS$_TI_TYP, wi, wi : 0719 
000¢ 0006 1$: WORD  2$-1$,= : 


EDISTIDELETE | EDTSTIDELETE - handle DEL ke 16-50 “19 AX#11 Bliss- . 
042000 EDTSST1DELK ~ handce DEL key Pert eRe Pbsze) Peale tea hoe skeSripecere.ouret* « 
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F PUSHAB L_ONE — 100 
: » EDTSS$F 


64 TILIT 
000000006 00 * EDISSOUT- _F MTBUF 


3; Routine Size: 93 bytes, Routine Base: _EDTSCODE + 0008 
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) 
BRB . : 07 

D 2$: PUSHL @# : } 33 
PUSHL R : 
BRB 4 : 

3$: PUSHL #4 3; 0726 
06 =A PUSHAB DEL_ONE_CHAR_10 : 
64 0 4$: CALLS @# TSSFMT“LI : 
: D IN_ETHO : 
§ 1_TyP, ; 
00 : 
ba 
a3 ; 


Used 
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EDTSTIDELETE EDTSTIDELETE = handle DEL key 18-5 Sep-19 : VAX-11 Bliss-32 V 
Oat 000 EDTSSTI_DELK = handle DEL key 14-Sep 71382 9}: 32:35 DISKSVMSMAS STER: tt Bt OSC STIDELETE. BL!: Pyee (4 
ys 757 1 END ! of TST T 
188 0738 ! module EDTSTIDELETE 
; (1 7 0 ELUDOM 
; PSECT SUMMARY 
; Name Bytes Attributes 
: _EDTSCODE 101 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 
ie reg ee eae ne ee == Syebels ecccccce Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28: (EDT. SRCJEDT.L32;1 377 4 1 40 00:00.2 
3 STi EDT. SRCIPSECTS.L32;1 2 1 50 7 8074 
; COMMAND QUALIFIERS 
4 Se ee eee TAAL PLONE LED TRL ERAG EL SOM, 5004 SPORE TEPER INCRE TORUS TE MSRC$: TIDELETE.BLI/UPDATE=(ENHS: TIDE 


93 code + °° data bytes 
60:10.9 


me: 
Elapsed Time: 00:13.3 
Lines/CPU Min: 4174 
"acne Sh Rigi 11466 


66 pages 


ee he Complete 


. 
° 
. 
o 
. 
. 
. 
o 
. 
° 
. 
. 
. 
. 
. 
* 
. 
o 
. 
oe 
” 
o 
+ 
e 
. 
a 
. 
* 
. 
o 
. 
o 
. 
° 
o 
Ld 
. 
o 
. 
. 
. 
e 
. 
e 
. 
° 
a 
e 
. 
eo 
. 
o 
o 
e 
. 
o 
. 
° 
. 
o 
. 
e 
. 
o 
7 
e 
o 
. 
e 
> 
. 
2 
e 
. 
e 
7 
e 
. 
e 
. 
e 
o 
e 
. 
° 
. 
o 
. 
e 
. 
o 
. 
e 
. 
o 
. 
° 
7 
e 
7 
& 
. 
e 
. 
e 
© 
eo 
. 
o 
. 
. 
. 
. 


EQUIPMENT CORPORATION 
NTIAL AND PROPRIETARY 


AH-BT13A-SE 
VAX/VMS V4.0 


L 
3 


DIGITA 
CONFID 


